home *** CD-ROM | disk | FTP | other *** search
/ Ian & Stuart's Australian Mac: Not for Sale / Another.not.for.sale (Australia).iso / fade into you / being there / Issues & Ideas / TIA / TIA Scripts / tia-script-shaw < prev   
Text File  |  1994-08-22  |  2KB  |  98 lines
  1. !
  2. ! InterSLIP Script for NETCOM tia users
  3. !
  4. ! InterSLIP is a Macintosh SLIP control that works with MacTCP
  5. ! to provide SLIP capability.  It is distributed free of charge
  6. ! by Intercon, developers of various fine Macintosh Internet software
  7. ! including the original NCSA Telnet and their commercial spinoffs.
  8. ! InterSLIP is distributed by anonymous ftp to ftp.intercon.com:/sales
  9. !
  10. ! Script written by Jeff Mealiffe <mealiffe@netcom.com>
  11. !                   ftp://ftp.netcom.com/pub/mealiffe/http/jeff.html
  12. !
  13. !
  14. @origniate
  15. note "Waiting for prompt"
  16. matchclr
  17. matchstr 1 1 ">>"
  18. matchread 50
  19. note "Didn't get >>"
  20. exit -1
  21.  
  22. @label 1
  23. note "Disabling flow control"
  24. write "df\13"
  25. matchclr
  26. matchstr 1 2 ">>"
  27. matchread 50
  28. note "Didn't get >>"
  29. exit -1
  30.  
  31. @label 2
  32. note "Waiting for prompt"
  33. write "1\13"
  34. matchclr
  35. matchstr 1 3 "login: "
  36. matchread 50
  37. note "Host not responding!"
  38. exit -1
  39. !
  40. @label 3
  41. note "Sending user name"
  42. write "^5\13"
  43. matchclr
  44. matchstr 1 4 "Password:"
  45. matchread 50
  46. note "Host not responding!"
  47. exit -1
  48. !
  49. @label 4
  50. note "Sending password"
  51. write "^6\13"
  52. matchclr
  53. matchstr 1 6 "]:"
  54. matchstr 2 5 "Login incorrect"
  55. matchread 50
  56. note "No terminal type prompt!"
  57. exit -1
  58. !
  59. ! Users will need to change "%" to match their shell prompt below.
  60. !
  61. @label 6
  62. note "Waiting for prompt"
  63. write "\13"
  64. matchclr
  65. matchstr 1 7 "%"
  66. matchread 120
  67. jump 99
  68. !
  69. @label 5
  70. note "Login incorrect"
  71. jump 99
  72. !
  73. @label 99
  74. pause 1
  75. sound
  76. pause 60
  77. exit -1
  78.  
  79. @label 7
  80. note "Requesting SLIP via tia"
  81. write "tia\13"
  82. matchclr
  83. matchstr 1 41 "Ready to start your SLIP software."
  84. matchread 50
  85. note "SLIP Gateway not responding!"
  86. exit -1
  87. !
  88. @label 41
  89. note "All done..."
  90. pause 1
  91. exit 0
  92. !
  93. ! currently unused:
  94. !
  95. @answer
  96. @hangup
  97. exit 0
  98.